home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arovin1a / monster.frm < prev    next >
Text File  |  1999-10-09  |  5KB  |  182 lines
  1. VERSION 4.00
  2. Begin VB.Form Monster 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   2385
  5.    ClientLeft      =   3180
  6.    ClientTop       =   2985
  7.    ClientWidth     =   2700
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Height          =   2820
  11.    Icon            =   "Monster.frx":0000
  12.    Left            =   3120
  13.    LinkTopic       =   "Monster"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2385
  17.    ScaleWidth      =   2700
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   2610
  20.    Visible         =   0   'False
  21.    Width           =   2820
  22.    Begin VB.PictureBox Picture1 
  23.       AutoRedraw      =   -1  'True
  24.       AutoSize        =   -1  'True
  25.       Height          =   990
  26.       Index           =   7
  27.       Left            =   -45
  28.       ScaleHeight     =   62
  29.       ScaleMode       =   3  'Pixel
  30.       ScaleWidth      =   68
  31.       TabIndex        =   7
  32.       Top             =   -90
  33.       Visible         =   0   'False
  34.       Width           =   1080
  35.    End
  36.    Begin VB.PictureBox Picture1 
  37.       AutoRedraw      =   -1  'True
  38.       AutoSize        =   -1  'True
  39.       Height          =   990
  40.       Index           =   6
  41.       Left            =   -45
  42.       ScaleHeight     =   62
  43.       ScaleMode       =   3  'Pixel
  44.       ScaleWidth      =   68
  45.       TabIndex        =   6
  46.       Top             =   -90
  47.       Visible         =   0   'False
  48.       Width           =   1080
  49.    End
  50.    Begin VB.PictureBox Picture1 
  51.       AutoRedraw      =   -1  'True
  52.       AutoSize        =   -1  'True
  53.       Height          =   990
  54.       Index           =   5
  55.       Left            =   -45
  56.       ScaleHeight     =   62
  57.       ScaleMode       =   3  'Pixel
  58.       ScaleWidth      =   68
  59.       TabIndex        =   5
  60.       Top             =   -90
  61.       Visible         =   0   'False
  62.       Width           =   1080
  63.    End
  64.    Begin VB.PictureBox Picture1 
  65.       AutoRedraw      =   -1  'True
  66.       AutoSize        =   -1  'True
  67.       Height          =   990
  68.       Index           =   4
  69.       Left            =   -45
  70.       ScaleHeight     =   62
  71.       ScaleMode       =   3  'Pixel
  72.       ScaleWidth      =   68
  73.       TabIndex        =   4
  74.       Top             =   -90
  75.       Visible         =   0   'False
  76.       Width           =   1080
  77.    End
  78.    Begin VB.PictureBox Picture1 
  79.       AutoRedraw      =   -1  'True
  80.       AutoSize        =   -1  'True
  81.       Height          =   990
  82.       Index           =   3
  83.       Left            =   -45
  84.       ScaleHeight     =   62
  85.       ScaleMode       =   3  'Pixel
  86.       ScaleWidth      =   68
  87.       TabIndex        =   3
  88.       Top             =   -90
  89.       Visible         =   0   'False
  90.       Width           =   1080
  91.    End
  92.    Begin VB.PictureBox Picture1 
  93.       AutoRedraw      =   -1  'True
  94.       AutoSize        =   -1  'True
  95.       Height          =   990
  96.       Index           =   2
  97.       Left            =   -45
  98.       ScaleHeight     =   62
  99.       ScaleMode       =   3  'Pixel
  100.       ScaleWidth      =   68
  101.       TabIndex        =   2
  102.       Top             =   -90
  103.       Visible         =   0   'False
  104.       Width           =   1080
  105.    End
  106.    Begin VB.PictureBox Picture1 
  107.       AutoRedraw      =   -1  'True
  108.       AutoSize        =   -1  'True
  109.       Height          =   990
  110.       Index           =   1
  111.       Left            =   -45
  112.       ScaleHeight     =   62
  113.       ScaleMode       =   3  'Pixel
  114.       ScaleWidth      =   68
  115.       TabIndex        =   1
  116.       Top             =   -90
  117.       Visible         =   0   'False
  118.       Width           =   1080
  119.    End
  120.    Begin VB.PictureBox Picture1 
  121.       AutoRedraw      =   -1  'True
  122.       AutoSize        =   -1  'True
  123.       Height          =   990
  124.       Index           =   0
  125.       Left            =   -45
  126.       ScaleHeight     =   62
  127.       ScaleMode       =   3  'Pixel
  128.       ScaleWidth      =   68
  129.       TabIndex        =   0
  130.       Top             =   -90
  131.       Visible         =   0   'False
  132.       Width           =   1080
  133.    End
  134.    Begin VB.Timer Timer1 
  135.       Interval        =   1
  136.       Left            =   1350
  137.       Top             =   210
  138.    End
  139. End
  140. Attribute VB_Name = "Monster"
  141. Attribute VB_Creatable = False
  142. Attribute VB_Exposed = False
  143. Option Explicit
  144.  
  145.  
  146. Private Sub Form_Load()
  147. TopZ Me
  148. End Sub
  149.  
  150. Private Sub Picture1_DblClick(Index As Integer)
  151. End
  152. End Sub
  153.  
  154. Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  155. ReleaseCapture
  156. SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
  157. End Sub
  158.  
  159.  
  160. Private Sub Timer1_Timer()
  161. Dim hRgn(7) As Long
  162. Static i As Integer
  163. Picture1(i).Picture = LoadPicture(App.Path & "\Monster\Gif" & i & ".bmp")
  164. hRgn(i) = GetBitmapRegion(Picture1(i).Picture, vbBlack)
  165. SetWindowRgn Me.hwnd, hRgn(i), True
  166. Monster.Show
  167. If i = 0 Then
  168. Picture1(7).Visible = False
  169. Else
  170. Picture1(i - 1).Visible = False
  171. End If
  172. Picture1(i).Visible = True
  173. DeleteObject hRgn(i)
  174. '************************************************
  175. Haunt Me '************ HAPPY HALLOWEEN **********
  176. '************************************************
  177. i = i + 1
  178. If i = 8 Then i = 0
  179. End Sub
  180.  
  181.  
  182.